home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_36_Steam.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  2.1 KB  |  49 lines
  1. on mouseUp
  2.   if the hilite of cast "steam" = 1 then
  3.     set the visible of sprite 42 to 0
  4.     set the visible of sprite 43 to 0
  5.     set the visible of sprite 44 to 0
  6.     set the visible of sprite 45 to 0
  7.     set the visible of sprite 46 to 0
  8.     set the visible of sprite 47 to 0
  9.     set the visible of sprite 48 to 0
  10.     set the visible of sprite 49 to 0
  11.     set the visible of sprite 60 to 0
  12.     set the visible of sprite 61 to 0
  13.     set the visible of sprite 62 to 0
  14.     set the visible of sprite 63 to 0
  15.     set the visible of sprite 64 to 0
  16.     set the visible of sprite 65 to 0
  17.     set the visible of sprite 74 to 0
  18.     set the visible of sprite 75 to 0
  19.   end if
  20.   if the hilite of cast "steam" = 0 then
  21.     if (the hilite of cast "extremetemp" = 0) and (the hilite of cast "cushionload" = 0) then
  22.       set the visible of sprite 42 to 1
  23.       set the visible of sprite 43 to 1
  24.       set the visible of sprite 44 to 1
  25.       set the visible of sprite 45 to 1
  26.       set the visible of sprite 46 to 1
  27.       set the visible of sprite 47 to 1
  28.       set the visible of sprite 48 to 1
  29.       set the visible of sprite 49 to 1
  30.     end if
  31.   end if
  32.   if the hilite of cast "steam" = 0 then
  33.     if (the hilite of cast "carpet" = 0) and (the hilite of cast "brick" = 0) and (the hilite of cast "concrete" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "ribbedsteel" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "water" = 0) and (the hilite of cast "asphalt" = 0) and (the hilite of cast "noisereduction" = 0) and (the hilite of cast "floorprotection" = 0) and (the hilite of cast "cushionload" = 0) then
  34.       set the visible of sprite 60 to 1
  35.       set the visible of sprite 61 to 1
  36.       set the visible of sprite 62 to 1
  37.       set the visible of sprite 63 to 1
  38.       set the visible of sprite 64 to 1
  39.       set the visible of sprite 65 to 1
  40.     end if
  41.   end if
  42.   if the hilite of cast "steam" = 0 then
  43.     if (the hilite of cast "extremetemp" = 0) and (the hilite of cast "cushionload" = 0) then
  44.       set the visible of sprite 74 to 1
  45.       set the visible of sprite 75 to 1
  46.     end if
  47.   end if
  48. end
  49.